<% strSourceFile = Server.MapPath("./") & "\List.xml" '获取XML文件的路径这里根据你的虚拟目录不同而不同 Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM") '以自由线程创建一个XML对像 objXML.load(strSourceFile)'把XML文件读入内存 Set objRootsite = objXML.documentElement.selectSingleNode("NewList") '选取NewList节点 %> <% PageSize =10 '假设每页显示10条留言 AllNodesNum =objRootsite.childNodes.length-1 'response.write objRootsite.childNodes.length 'response.end '获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1） PageNum=AllNodesNum\PageSize+1'算出总页数 PageNo=request.querystring("PageNo") if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言 PageNo=PageNum end if StarNodes=PageNo*PageSize-1'获得起始节点 EndNodes=(PageNo-1)*PageSize'获得结束节点 if EndNodes<0 then EndNodes=0 end if 'response.write " StarNodes and AllNodesNum==="&StarNodes &"----"&AllNOdesNum&"
" if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数 EndNodes=EndNodes-(StarNodes-AllNodesNum) '如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错 StarNodes=AllNodesNum end if 'response.write "StarNodes=_________"&StarNodes &"---"&"
" if EndNodes<0 then EndNodes=0 end if while StarNodes>=EndNodes '从结束节点到超始节点之间读取节点数据 'response.write "id="&objRootsite.childNodes.item(StarNodes).childNodes.item(0).text id = objRootsite.childNodes.item(StarNodes).childNodes.item(0).text 'id号 username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text '获得用户名 fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text '获得用户来自那里 Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text '获得留言时间 homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text '获得用户主页 email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text '获得用户Eamil text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text '获昨留言内容 '***************************************************************************** '这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为 ' objRootsite.childNodes.item(StarNodes)所对应的节点就是节点因为不至一个节点所以用了item() '来识别当前节点数据，随着StarNodes的递减节点根着往上移一个个读取节点数据。 'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里 '(1)所对应的就是username用户名（因为节点的子节点才是我们真正所要的） '****************************************************************************** text = replace(text,chr(13),"
") '替代回车 text = replace(text,chr(32)," ") '替代空格 %> <% StarNodes=StarNodes-1 wend set objXML=nothing %>

写新留言
id号：<%=id%> 姓名：<%=username%> 来自：<%=fromwhere%> <% if edit_io<>"" then%> 编辑留言 <%end if%>	| 主页 | | 信箱 | | 留言时间：<%=Posttime%> | <%=text%>
共有<<%=PageNum%>>页 <% if cint(PageNo)<>PageNum then '分页 response.write "上一页" end if if cint(PageNo)<>1 then response.write "下一页" end if %>